home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / WINER.ZIP / CHAP11-2.BAS < prev    next >
BASIC Source File  |  1992-05-13  |  679b  |  32 lines
  1. '*********** CHAP11-2.BAS - demonstrates calling the BIOS video interrupt
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. DECLARE SUB ClearScreen (ULRow, ULCol, LRRow, LRCol, Colr)
  7.  
  8. '$INCLUDE: 'REGTYPE.BI'
  9.  
  10. DIM SHARED Registers AS RegType
  11.  
  12. CLS
  13. FG = 7: BG = 1
  14. COLOR FG, BG
  15.  
  16. FOR X% = 1 TO 24
  17.   PRINT STRING$(80, X% + 64);
  18. NEXT
  19.  
  20. Colr = FG + 16 * BG
  21. CALL ClearScreen(5, 10, 20, 70, Colr)
  22.  
  23. SUB ClearScreen (ULRow, ULCol, LRRow, LRCol, Colr) STATIC
  24.  
  25.   Registers.AX = &H600
  26.   Registers.BX = Colr * 256
  27.   Registers.CX = (ULCol - 1) + (256 * (ULRow - 1))
  28.   Registers.DX = (LRCol - 1) + (256 * (LRRow - 1))
  29.   CALL Interrupt(&H10, Registers, Registers)
  30.  
  31. END SUB
  32.